do mf(2)

↑C
.Swapping to SYS:PSC.DMP
 PASCAL:	MF     (500) 
  917   FUNCTION TOSSEDGES(H:HALFWORD);VAR P,Q:HALFWORD;BEGIN Q:=MEM[H].HH.RH;
P*  1**                               ↑                                       
1.↑:  Missing result type in function declaration  

  952   11,13,8:TOSSKNOTLIST(V);9:TOSSEDGES(V);15,14:{726:}
P*  1**                                    ↑**↑            
1.↑:  Assignment to func. must be in its body 
2.↑:  ":=" expected  

  981   8,11,13:TOSSKNOTLIST(CUREXP);9:TOSSEDGES(CUREXP);OTHERS:END;CURTYPE:=16;
P*  1**                                         ↑*******↑                       
1.↑:  Assignment to func. must be in its body 
2.↑:  ":=" expected  
(1000) (1500) (2000) (2500) (3000) 
 3221   FUNCTION NICEPAIR(P:HALFWORD,T:QUARTERWORD):BOOLEAN;LABEL 10;
P*  1**                             ↑*************                   
1.↑:  Error in parameterlist   

 3222   BEGIN IF T=15 THEN BEGIN P:=MEM[P+1].INT;
P*  1**          ↑                               
1.↑:  Identifier not declared  

 3226   IF T<17 THEN IF T<>15 THEN PRINTTYPE(T)ELSE IF NICEPAIR(V,15)THEN PRINT(
P*  1**                                                          ↑              
1.↑:  Number of parameters does not agree with declaration   

 3287   63:IF NICEPAIR(CUREXP,CURTYPE)THEN BEGIN P:=MEM[CUREXP+1].INT;
P*  1**                      ↑                                        
1.↑:  Number of parameters does not agree with declaration   
(3500) 
 3569   ELSE IF(NICEPAIR(P,MEM[P].HH.B0)AND(CURTYPE>15))OR(NICEPAIR(CUREXP,
P*  1**                   ↑                                               ↑
1.↑:  Number of parameters does not agree with declaration   
2.↑:  Number of parameters does not agree with declaration   

 3586   90:IF NICEPAIR(P,MEM[P].HH.B0)AND(CURTYPE=4)THEN TAKESUBSTRIN(P)ELSE
P*  1**                 ↑                                                   
1.↑:  Number of parameters does not agree with declaration   

 3945   IF NICEPAIR(CUREXP,CURTYPE)THEN BEGIN P:=MEM[CUREXP+1].INT;
P*  1**                   ↑                                        
1.↑:  Number of parameters does not agree with declaration   
(4000) (4500) 
 4702   5:PRINTVARIABL(N);6:PRINTINT(INTERNAL[N]);7:DOSHOWDEPEND(6);
P*  1**                                                         ↑   
1.↑:  Number of parameters does not agree with declaration   

?error detected

Exit
↑C
.